home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / JANUSSTD.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  3KB  |  54 lines
  1. rem ==============================================================
  2. rem == Interrupt $0B:                                           ==
  3. rem ==   AH=Funktionsnummer                                     ==
  4. rem ==                                                          ==
  5. rem == AH=1:  GetParamOffset                                    ==
  6. rem ==          => AL = JIntNummer                              ==
  7. rem ==          <= DI = Offset                                  ==
  8. rem ==                                                          ==
  9. rem == AH=2:  AllocJanusMem                                     ==
  10. rem ==          => AL = Speichertyp                             ==
  11. rem ==          => BX = Anzahl der Bytes                        ==
  12. rem ==          <= BX = Offset auf Speicher                     ==
  13. rem ==                                                          ==
  14. rem == AH=3:  FreeJanusMem                                      ==
  15. rem ==          => AL = Speichertyp                             ==
  16. rem ==          => BX = Offset auf Speicher                     ==
  17. rem ==                                                          ==
  18. rem == AH=4:  SetParamOffset                                    ==
  19. rem ==            => AL = JIntNummer                              ==
  20. rem ==          => BX = Offset                                  ==
  21. rem ==                                                          ==
  22. rem == AH=5:  Nicht benutzt                                     ==
  23. rem == AH=6:  Nicht benutzt                                     ==
  24. rem ==                                                          ==
  25. rem == AH=11: GetService                                        ==
  26. rem ==          => AL = Flags                                   ==
  27. rem ==          => CX = LocalID                                 ==
  28. rem ==          => DI = Offset von PCCustomer                   ==
  29. rem ==          => SI = AppID (2. Wort)                         ==
  30. rem ==          => DS = AppID (1. Wort)                         ==
  31. rem ==          => ES = Segment von FirstPCCustomer             ==
  32. rem ==          <= AL = Fehler (0 = Kein Fehler)                ==
  33. rem ==          <= DI = Offset auf ServiceData-Struktur         ==
  34. rem ==                                                          ==
  35. rem == AH=12: CallService                                       ==
  36. rem ==          => DI = Service                                 ==
  37. rem ==                                                          ==
  38. rem == AH=13: ReleaseService                                    ==
  39. rem ==          => DI = Service                                 ==
  40. rem ==                                                          ==
  41. rem == AH=15: LockService                                       ==
  42. rem ==          => DI = Service                                 ==
  43. rem ==                                                          ==
  44. rem == AH=16: UnLockService                                     ==
  45. rem ==          => DI = Service                                 ==
  46. rem ==                                                          ==
  47. rem ==============================================================
  48.  
  49. $INCLUDE "REGNAMES.INC"
  50. def seg = &hd000
  51. cls
  52.  
  53.  
  54.